home *** CD-ROM | disk | FTP | other *** search
/ NOVA - For the NeXT Workstation / NOVA - For the NeXT Workstation.iso / Apps / AudioApps / GISO / PrefPanel.m < prev    next >
Encoding:
Text File  |  1992-12-21  |  1.4 KB  |  80 lines
  1. /*    
  2. **    Copyright (C) 1992  Ronin Consulting, Inc.
  3. **
  4. **    This program is free software; you can redistribute it and/or modify
  5. **    it under the terms of the GNU General Public License as published by
  6. **    the Free Software Foundation; version 1.
  7. **
  8. **    This program is distributed in the hope that it will be useful,
  9. **    but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. **    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11. **    GNU General Public License for more details.
  12. **
  13. **    You should have received a copy of the GNU General Public License
  14. **    along with this program; if not, write to the Free Software
  15. **    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  16. */
  17.  
  18. #import "PrefPanel.h"
  19. #import "Defaults.h"
  20. #import <appkit/Application.h>
  21. #import <appkit/Window.h>
  22. #import <appkit/Button.h>
  23.  
  24. @implementation PrefPanel
  25.  
  26. - init
  27. {
  28.    [super init];
  29.  
  30.    defaults = [Defaults new];
  31.    return self;
  32. }
  33.  
  34. - setPanel: aPanel
  35. {
  36.    panel = aPanel;
  37.    [panel setDelegate: self];
  38.  
  39.    return self;
  40. }
  41.  
  42. - revert:sender
  43. {
  44.     return self;
  45. }
  46.  
  47. - windowDidBecomeKey:sender
  48. {
  49.    return self;
  50. }
  51.  
  52. - ok:sender
  53. {
  54.     return self;
  55. }
  56.  
  57. - cancel:sender
  58. {
  59.    [[sender window] performClose: sender];
  60.     return self;
  61. }
  62.  
  63. - save:sender
  64. {
  65.     return self;
  66. }
  67.  
  68.  
  69. - makeKeyAndOrderFront: sender
  70. {
  71.    if(!panel)
  72.        [NXApp loadNibSection: "PrefPanel.nib" owner: self];
  73.    
  74.    return [panel makeKeyAndOrderFront: sender];
  75. }
  76.  
  77.  
  78.  
  79. @end
  80.